home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 16 / PC Actual CD 16.iso / cdactual / scripts / faceitun / FRENACE.ZIP / ctcps.ini < prev    next >
Encoding:
INI File  |  1997-08-13  |  10.9 KB  |  202 lines
  1. [script]
  2. n0=#referendum off
  3. n1=ctcp 5:Si: {
  4. n2=  .guser 33 $nick 3
  5. n3=  inc %incvotos
  6. n4=  write %votoa  echo 6 %incvotos .-   6***4Nick2ááá$nick ááá4Mask del votante2 $mask 4Respuesta2ááá SI
  7. n5=}
  8. n6=ctcp 33:Si: { .notice $nick %logo2 2 Pero cuantas veces quieres votar ?? | ignore -u 30 $nick 2 }
  9. n7=ctcp 5:No: {
  10. n8=  .guser  33 $nick 3
  11. n9=  inc %incvotos
  12. n10=  write %votoa  echo 6 %incvotos .-   6***4Nick2ááá$nick ááá4Mask del votante2 $mask 4Respuesta2ááá SI
  13. n11=}
  14. n12=ctcp 33:No: { .notice $nick %logo2 2 Pero cuantas veces quieres votar ?? | ignore -u 30 $nick 2 }
  15. n13=#referendum end
  16. n14=ctcp 33:RESULTADOS: if (%doyvotos == On) { dcc send $nick %votaa | notice $nick %logo Mandßntote la lista de resultados del ReFeRenDuM. } else { .notice $nick %logo Todavφa no la doy... jur jur. :) }
  17. n15=ctcp 5:RESULTADOS: if (%doyvotos == On) { .notice $nick Tu no has votado  para que te dΘ la lista... } else { .notice $nick %logo No doy la lista. }
  18. n16=;
  19. n17=ctcp 5:AVISO: {
  20. n18=  if (%Aviso == On) { 
  21. n19=    .timer 0 2 /splay wavs\cristal.wav
  22. n20=    .timer 0 5 /echo 4 -a //íAVISO!  íURGENTE!  TE LLAMA  1 $nick  íURGENTE! íAVISO!\\
  23. n21=    .notice $nick Ya voyyyyyy  $nick  no puedo estar ni un minuto tranquilo.
  24. n22=    ignore -tu30 $nick 2 
  25. n23=    halt 
  26. n24=  }
  27. n25=  else { .notice $nick Perd≤n $nick $+ , no tengo el AVISO ACTIVADO... | ignore -tu30 $nick 2 } 
  28. n26=}
  29. n27=ctcp 50:PING:
  30. n28=ctcp 5:PING: {
  31. n29=  if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set  %Ctcp. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  32. n30=  if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  33. n31=    if (%Var.ProtCtcp == Normal) { .ignore -ntu60 $nick 4 | .ignore -tu30 * }
  34. n32=    if (%Var.ProtCtcp == High) { .ignore -ntu120 $nick 4 | .ignore -tu60 * }
  35. n33=    set %Var.Flooder $site | alarma $nick $address CTCP PING | unset %Ctcp. [ $+ [ $site ] ]
  36. n34=  }
  37. n35=  inc %Ctcp. [ $+ [ $site ] ] 1 | halt
  38. n36=}
  39. n37=ctcp 5:VERSION: {
  40. n38=  if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set  %Ctcp. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  41. n39=  if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  42. n40=    if (%Var.ProtCtcp == Normal) { .ignore -ntu60 $nick 4 | .ignore -tu30 * }
  43. n41=    if (%Var.ProtCtcp == High) { .ignore -ntu120 $nick 4 | .ignore -tu60 * }
  44. n42=    set %Var.Flooder $site | alarma $nick $address CTCP VERSION | unset %Ctcp. [ $+ [ $site ] ] | halt
  45. n43=  }
  46. n44=  inc %Ctcp. [ $+ [ $site ] ] 1 | .notice $nick 6 $me usa 4ïòâ«únåΩ ┼⌐ΩçåⁿnΦ«°ºò¢ 6la v1.5 Que lo sepan...  5www.arrakis.es/~familia/frente.htm
  47. n45=}
  48. n46=ctcp 5:FINGER: {
  49. n47=  if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set  %Ctcp. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  50. n48=  if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  51. n49=    if (%Var.ProtCtcp == Normal) { .ignore -ntu60 $nick 4 | .ignore -tu30 * }
  52. n50=    if (%Var.ProtCtcp == High) { .ignore -ntu120 $nick 4 | .ignore -tu60 * }
  53. n51=    set %Var.Flooder $site | alarma $nick $address CTCP FINGER | unset %Ctcp. [ $+ [ $site ] ] | halt
  54. n52=  }
  55. n53=  inc %Ctcp. [ $+ [ $site ] ] 1 | halt
  56. n54=}
  57. n55=ctcp 5:TIME: {
  58. n56=  if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set  %Ctcp. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  59. n57=  if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  60. n58=    if (%Var.ProtCtcp == Normal) { .ignore -ntu60 $nick 4 | .ignore -tu30 * }
  61. n59=    if (%Var.ProtCtcp == High) { .ignore -ntu120 $nick 4 | .ignore -tu60 * }
  62. n60=    set %Var.Flooder $site | alarma $nick $address CTCP TIME | unset %Ctcp. [ $+ [ $site ] ] | halt
  63. n61=  }
  64. n62=  inc %Ctcp. [ $+ [ $site ] ] 1 | halt
  65. n63=}
  66. n64=ctcp 50:ECHO: halt
  67. n65=ctcp 5:ECHO { 
  68. n66=  .ignore -ntu60 $nick 4 | .ignore -tu30 * | set %Var.Flooder $site | alarma $nick $address CTCP ECHO
  69. n67=  halt
  70. n68=}
  71. n69=ctcp 5:USERINFO: {
  72. n70=  if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set  %Ctcp. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  73. n71=  if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  74. n72=    if (%Var.ProtCtcp == Normal) { .ignore -ntu60 $nick 4 | .ignore -tu30 * }
  75. n73=    if (%Var.ProtCtcp == High) { .ignore -ntu120 $nick 4 | .ignore -tu60 * }
  76. n74=    set %Var.Flooder $site | alarma $nick $address CTCP USERINFO | unset %Ctcp. [ $+ [ $site ] ] | halt
  77. n75=  }
  78. n76=  inc %Ctcp. [ $+ [ $site ] ] 1 | halt
  79. n77=}
  80. n78=ctcp 5:CLIENTINFO: {
  81. n79=  if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set  %Ctcp. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  82. n80=  if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  83. n81=    if (%Var.ProtCtcp == Normal) { .ignore -ntu60 $nick 4 | .ignore -tu30 * }
  84. n82=    if (%Var.ProtCtcp == High) { .ignore -ntu120 $nick 4 | .ignore -tu60 * }
  85. n83=    set %Var.Flooder $site | alarma $nick $address CTCP CLIENTINFO | unset %Ctcp. [ $+ [ $site ] ] | halt
  86. n84=  }
  87. n85=  inc %Ctcp. [ $+ [ $site ] ] 1 | halt
  88. n86=}
  89. n87=ctcp 50:DCC SEND:
  90. n88=ctcp 5:DCC SEND: {
  91. n89=  if ($parm5 == 19) {
  92. n90=    .ignore -ntu30 $nick 4 | .ignore -tu15 * | unset %Ctcp. [ $+ [ $site ] ]
  93. n91=    set %Var.Flooder $site | alarma $nick $address DCC Send por el Puerto 19 | halt
  94. n92=    halt
  95. n93=  }
  96. n94=  if (%Var.ProtDCC == On) {
  97. n95=    if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set %Ctcp. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  98. n96=    if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  99. n97=      .ignore -ntu30 $nick 4 | .ignore -tu15 * | unset %Ctcp. [ $+ [ $site ] ]
  100. n98=      set %Var.Flooder $site | alarma $nick $address DCC Send | halt
  101. n99=    }
  102. n100=    raw -q NOTICE $nick : $+ $chr(01) $+ DCC Perd≤n, mi DCC estß cerrado.    4ïò┼⌐ΩçåⁿnΦ«°ºò¢
  103. n101=    echo 6 -a Te ha mandado un DCC Send! 1 $nick  Si quieres desactiva la proteccion
  104. n102=    inc %Ctcp. [ $+ [ $site ] ] 1
  105. n103=    halt
  106. n104=  }
  107. n105=}
  108. n106=ctcp 69:DCC CHAT: { .ignore -ntu30 $nick 4 | .notice $nick 6ShitLisL 3-><- 4ïò┼⌐ΩçåⁿnΦ«°ºò¢ }
  109. n107=ctcp 50:DCC CHAT:
  110. n108=ctcp 5:DCC CHAT: {
  111. n109=  if ($parm5 == 19) {
  112. n110=    .ignore -ntu30 $nick 4 | .ignore -tu15 * | unset %Ctcp. [ $+ [ $site ] ]
  113. n111=    set %Var.Flooder $site | alarma $nick $address DCC Chat Por el Puerto 19 | halt
  114. n112=    halt
  115. n113=  }
  116. n114=  if (%Var.ProtDCC == On) {
  117. n115=    if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set %Ctcp. [ $+ [ $site ] ] 0 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  118. n116=    if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  119. n117=      .ignore -ntu30 $nick 4 | .ignore -tu15 * | unset %Ctcp. [ $+ [ $site ] ]
  120. n118=      set %Var.Flooder $site | alarma $nick $address DCC Chat | halt
  121. n119=    }
  122. n120=    raw -q NOTICE $nick : $+ $chr(01) $+ DCC Perd≤n, mi DCC estß cerrado. 4ïò┼⌐ΩçåⁿnΦ«°ºò¢
  123. n121=    echo 6 -a Te ha mandado un DCC Chat! 1 $nick  Si quieres desactiva la proteccion.
  124. n122=    inc %Ctcp. [ $+ [ $site ] ] 1
  125. n123=    halt
  126. n124=  }
  127. n125=  echo 4 -s $timestamp Puerto del DCC CHAT de $nick $+ : 2 $parm5 
  128. n126=}
  129. n127=ctcp 50:DCC RESUME:
  130. n128=ctcp 15:DCC RESUME:
  131. n129=ctcp 5:DCC RESUME: {
  132. n130=  if (%Var.ProtDCC == On) {
  133. n131=    if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set %Ctcp. [ $+ [ $site ] ] 0 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  134. n132=    if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  135. n133=      .ignore -ntu30 $nick 4 | .ignore -tu15 * | unset %Ctcp. [ $+ [ $site ] ]
  136. n134=      set %Var.Flooder $site | alarma $nick $address DCC Resume FLOOD | halt
  137. n135=    }
  138. n136=    inc %Ctcp. [ $+ [ $site ] ] 1 
  139. n137=  }
  140. n138=}
  141. n139=ctcp 50:DCC ACCEPT:
  142. n140=ctcp 15:DCC ACCEPT:
  143. n141=ctcp 5:DCC ACCEPT: {
  144. n142=  if (%Var.ProtDCC == On) {
  145. n143=    if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set %Ctcp. [ $+ [ $site ] ] 0 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  146. n144=    if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  147. n145=      .ignore -ntu30 $nick 4 | .ignore -tu15 * | unset %Ctcp. [ $+ [ $site ] ]
  148. n146=      set %Var.Flooder $site | alarma $nick $address DCC Accept FLOOD | halt
  149. n147=    }
  150. n148=    inc %Ctcp. [ $+ [ $site ] ] 1
  151. n149=  }
  152. n150=}
  153. n151=;
  154. n152=ctcp 5:XDCC HELP: {
  155. n153=  if (%Group.XDCC == On) {
  156. n154=    .timer 1 1 .notice $nick ññ (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ v1.5 XDCC) ññ
  157. n155=    .timer 1 2 .notice $nick ╖ XDCC LIST --- Lista de mis archivos.
  158. n156=    .timer 1 3 .notice $nick ╖ XDCC GET --- Te envio un archivo #
  159. n157=    .timer 1 4 .notice $nick ññ Escribe: /ctcp $me xdcc <comando> ññ
  160. n158=    echo 2 -s 4ïò┼⌐ΩçåⁿnΦ«°ºò¢ XDCC Archivos: XDCC AYUDA de $nick ( $+ $address $+ ). | ignore -tu5 $nick 2 | halt
  161. n159=  }
  162. n160=  else { .notice $nick ññ (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ v1.5 XDCC Cerrado) ññ | halt }
  163. n161=}
  164. n162=ctcp 5:XDCC LIST: {
  165. n163=  if (%Group.XDCC == On) {
  166. n164=    .notice $nick ññ (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ v1.5 XDCC) ññ | set %Var.Index 1
  167. n165=    :readfile
  168. n166=    set %Var.Temp $readini $mircdir $+ docs\xdcc.ini Packet $+ %Var.Index desc $+ %Var.Index
  169. n167=    if (%Var.Temp == $null) { goto listdone }
  170. n168=    if (%Var.Temp != $null) { .notice $nick ╖ $+ %Var.Index $+ ╖ %Var.Temp | inc %Var.Index | goto readfile }
  171. n169=    :listdone
  172. n170=    dec %Var.Index | .notice $nick ññ Fin de la lista! Total: %Var.Index ññ
  173. n171=    .notice $nick Para coger pon: /ctcp $me xdcc get <#>
  174. n172=    echo 2 -s 4ïò┼⌐ΩçåⁿnΦ«°ºò¢ XDCC Archivoss: XDCC LIST desde $nick ( $+ $address $+ ). | ignore -tu5 $nick 2 | halt
  175. n173=  }
  176. n174=  else { .notice $nick ññ (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ v1.5 XDCC Cerrado) ññ | halt }
  177. n175=}
  178. n176=ctcp 5:XDCC GET: {
  179. n177=  if (%Group.XDCC == On) {
  180. n178=    if ($parm3 == $null) { .notice $nick ññ Error: Tu no puedes elegir ningun n·mero de Archivo! ññ | halt }
  181. n179=    if ($asc($parm3) <= 47) { .notice $nick ññ Error: $parm3 no es un n·mero vßlido! ññ | halt }
  182. n180=    if ($asc($parm3) >= 58) { .notice $nick ññ Error: $parm3 no es un n·mero vßlido! ññ | halt }
  183. n181=    set %Var.Temp $readini $mircdir $+ docs\xdcc.ini Packete $+ $parm3 Archivo $+ $parm3
  184. n182=    if (%Var.Temp == $null) { .notice $nick ññ Error: $parm3 no es un n·mero vßlido! ññ | halt }
  185. n183=    .timer 1 2 dcc send $nick $readini $mircdir $+ docs\xdcc.ini Packete $+ $parm3 Archivo $+ $parm3
  186. n184=    echo 2 -s 4ïò┼⌐ΩçåⁿnΦ«°ºò¢ XDCC files: XDCC GET desde $nick ( $+ $address $+ ). | ignore -tu6 *!*@ $+ $site | halt
  187. n185=  }
  188. n186=  else { .notice $nick ññ (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ v1.5 XDCC Cerrado!) ññ | halt }
  189. n187=}
  190. n188=ctcp 5:XDCC: if (%Group.XDCC == On) { .notice $nick ññ Error: Escribe /ctcp $me xdcc help ññ | halt } | else { .notice $nick ññ 4ïò┼⌐ΩçåⁿnΦ«°ºò¢ v1.5 XDCC Cerrado! ññ | halt }
  191. n189=ctcp 50:*:
  192. n190=ctcp 70:*:
  193. n191=ctcp 5:*: {
  194. n192=  if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set  %Ctcp. [ $+ [ $site ] ] 1 | .timer 1 5 /unset %Ctcp. [ $+ [ $site ] ] }
  195. n193=  if ([ %Ctcp. [ $+ [ $site ] ] ] == 2) {
  196. n194=    if (%Var.ProtCtcp == Normal) { .ignore -ntu60 $nick 4 | .ignore -tu30 * }
  197. n195=    if (%Var.ProtCtcp == High) { .ignore -ntu120 $nick 4 | .ignore -tu60 * }
  198. n196=    set %Var.Flooder $site | alarma $nick $address CTCP (Tipo desconocido) | unset %Ctcp. [ $+ [ $site ] ]
  199. n197=  }
  200. n198=  inc %Ctcp. [ $+ [ $site ] ] 1 | halt
  201. n199=}
  202.